home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / tag_bbs / dvtag.zip / BINKLEY.BAT < prev    next >
DOS Batch File  |  1991-12-22  |  4KB  |  150 lines
  1. Rem            -=[  Binkley batch file for The Abacus - Node 3  ]=-
  2. @echo off
  3. :Reset
  4. echo ..........................Starting up Binkley.............................
  5. c:
  6.  
  7. cd\bbs\s
  8. tagswap 1 c:\bbs\s\ c:\bbs\s\
  9. del logon2.msg
  10. murphy > logon2.msg
  11. if exist \bbs\gfiles\nettoss.log goto matrix
  12. if exist \bbs2\gfiles\nettoss.log goto matrix
  13. if exist \bbs3\gfiles\nettoss.log goto matrix
  14. if exist \bbs4\gfiles\nettoss.log goto matrix
  15.  
  16. modem 3 on
  17. cd\bbs3\binkley
  18. bt
  19.  
  20. :levels
  21. if errorlevel 193 goto reset
  22. if errorlevel 192 goto tag
  23. if errorlevel 154 goto end
  24. if errorlevel 153 goto reset
  25. if errorlevel 150 goto mailin
  26. if errorlevel 144 goto tag
  27. if errorlevel 125 goto reset
  28. if errorlevel 100 goto log
  29. if errorlevel  96 goto tag
  30. if errorlevel  90 goto binklog
  31. if errorlevel  80 goto qmodem
  32. if errorlevel  70 goto mailout
  33. if errorlevel  60 goto events
  34. if errorlevel  50 goto amax
  35. if errorlevel  40 goto renumber
  36. if errorlevel  30 goto mailin
  37. if errorlevel  24 goto tag
  38. if errorlevel  20 goto tag
  39. if errorlevel  12 goto tag
  40. if errorlevel  10 goto tag
  41. if errorlevel   6 goto mailout
  42. if errorlevel   5 goto getfiles
  43. if errorlevel   4 goto renumber
  44. if errorlevel   2 goto events
  45. if errorlevel   1 goto end
  46.  
  47. :mailout
  48. modem 3 off>nul
  49. if exist c:\bbs\in\nodediff.a* gosub nodeproc
  50. call mailout
  51. goto reset
  52.  
  53. :mailin
  54. modem 3 off>nul
  55. cd\bbs3\binkley
  56. if exist c:\bbs\in\*.fle gosub ticfle
  57. if exist c:\bbs\in\*.tic gosub tictic
  58. qm toss scan pack link -cc:\bbs3\binkley\qm.cfg -ac:\bbs3\binkley\areas.bbs
  59. if exist c:\bbs\out\*.$$* del c:\bbs\out\*.$$*
  60. if exist c:\bbs\in\f159_*.* move c:\bbs\in\f159_*.* d:\lists
  61. if exist c:\bbs\in\*.zip move c:\bbs\in\*.zip d:\files
  62. if exist c:\bbs\in\*.arc move c:\bbs\in\*.arc d:\files
  63. if exist c:\bbs\in\*.lzh move c:\bbs\in\*.lzh d:\files
  64. if exist c:\bbs\in\*.sdn move c:\bbs\in\*.sdn d:\files
  65. if exist c:\bbs\in\*.arj move c:\bbs\in\*.arj d:\files
  66. goto reset
  67.  
  68. :matrix
  69. modem 3 off>nul
  70. cd\bbs3\binkley
  71. qm pack
  72. if exist c:\bbs\gfiles\nettoss.log del c:\bbs\gfiles\nettoss.log
  73. if exist c:\bbs2\gfiles\nettoss.log del c:\bbs2\gfiles\nettoss.log
  74. if exist c:\bbs3\gfiles\nettoss.log del c:\bbs3\gfiles\nettoss.log
  75. if exist c:\bbs4\gfiles\nettoss.log del c:\bbs4\gfiles\nettoss.log
  76. goto reset
  77.  
  78. :ticfle
  79. cd\bbs3\binkley
  80. ticket -me:\msgs\announce -tAbacus_Users -FTAG_Distribution_System -Lc:\bbs3\binkley\fle.log -STDS_Files_Received -aTAGUTIL -aTAGDIST -aTAGDOORS
  81. ticket -me:\msgs\announce -p -tDeb_Ackley -FTAG_Beta_Distribution_System -Lc:\bbs3\binkley\fle.log -STAG_Beta_Files_Received -aBETA
  82. ticket -me:\msgs\announce -tAbacus_Users -FSDN_Distribution_System -Lc:\bbs3\binkley\fle.log -SSDN_Files_Received -aSDN_SYST -aSDN_MISC -aSDN_WORD -aSDN_DATA -aSDN_COMM -aSDN_UTIL -aSDN_GAME -aSDN_BUSI
  83. ticket -me:\msgs\announce -tAbacus_Users -FSDS_Distribution_System -Lc:\bbs3\binkley\fle.log -SSDS_Files_Received -aSDSBINK -aSDSMAX
  84. ticket -me:\msgs\announce -tAbacus_Users -FN159Files_Distribution_System -Lc:\bbs3\binkley\fle.log -SNet159_Files_Received -aFIDONEWS -aNODELIST -aSCAN1 -aSCAN2 -aCOSTS -aN159ELST -aN159FILS -aLBBSLIST
  85. ticket -me:\msgs\announce -tAbacus_Users -FDVNET_Distribution_System -Lc:\bbs3\binkleyfle.log -SDVNET_Files_Received -a100-850
  86.  
  87. :tictic
  88. cd\bbs3\binkley
  89. sds2dir -FC:\bbs\multi -L c:\bbs3\binkley\tic.log
  90. tick >> c:\bbs3\binkley\tic.log
  91. qm scan pack -ftick.bbs
  92. echo Tic or Fle files received >> c:\bbs\s\user1.msg
  93. return
  94.  
  95. :getfiles
  96. call get
  97. goto reset
  98.  
  99. :renumber
  100. modem 3 off>nul
  101. call xnum
  102. goto reset
  103.  
  104. :events
  105. modem 3 off>nul
  106. call events3
  107. goto reset
  108.  
  109. :nodeproc
  110. modem 3 off>nul
  111. call nodeproc
  112. return
  113.  
  114. :log
  115. modem 3 off>nul
  116. s
  117. goto reset
  118.  
  119. :binklog
  120. modem 3 off>nul
  121. b
  122. goto reset
  123.  
  124. :qmodem
  125. cdd c:\qmodem\3
  126. qmodem
  127. goto reset
  128.  
  129. :bonk
  130. modem 3 off>nul
  131. cd \bbs\nodelist
  132. bonk
  133. goto reset
  134.  
  135. :amax
  136. modem 3 off>nul
  137. am3
  138. goto reset
  139.  
  140. :tmlocal
  141. modem 3 off>nul
  142. t
  143. goto reset
  144.  
  145. :tag
  146. c:
  147. cd\bbs3
  148.  
  149. :end
  150.